﻿Public Class FrmKart

	Public WithEvents Record As New Table("istihdam")

	Sub New()
		InitializeComponent()
		bolge.LoadItems("1:Lefkoşa,2:Girne")
		cins.LoadItems(":,E:Erkek,K:Kadın")
		egitim.LoadItems(Service.Combo.Egitim)
		meslek.LoadItems(Service.Combo.Meslek)
		faaliyet.LoadItems(Service.Combo.Faaliyet)
		Record.Bind(Me)
		bolge.SelectedValue = Kullanici.TBirim
	End Sub

	Sub New(ByVal rowid As String)
		Me.New()
		Record.Read(rowid)
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Record.Save()
	End Sub

	Private Sub Record_Updating(sender As Object, e As Table.UpdatingEventArgs) Handles Record.Updating
		Select Case e.Field
			Case "adi", "soyadi" : e.Value = ToTitle(e.Value)
		End Select
	End Sub

End Class